home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Multimedia
/
Resource Library: Multimedia.iso
/
hypercrd
/
bok-bndr.hqx
/
Bookbinder
/
card_7452.txt
< prev
next >
Wrap
Text File
|
1991-06-04
|
6KB
|
304 lines
-- card: 7452 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 4755
-- name: index (cont)
----- HyperTalk script -----
on updateIndex
global deletedCard
put 36*((the number of me)-(the number of card "index")) into base
set cursor to watch
put 1 into x
repeat until x > 18
get line x+base of card field "topic" of card "index"
if it is not "" then
if x > 1 then
if it is line x+base-1 of card field "topic" of card "index" then
get ""
end if
end if
put it into line x of card field "item" of card (the number of me)
get line x+base of card field "card id" of card "index"
if it is word 3 of deletedCard then
delete line x+base of card field "topic" of card "index"
delete line x+base of card field "card id" of card "index"
subtract 1 from x
else
get idToNumber(it)
put it into line x of card field "page" of card (the number of me)
end if
else
put "" into line x of card field "item" of card (the number of me)
put "" into line x of card field "page" of card (the number of me)
end if
add 1 to x
end repeat
put 1 into x
repeat until x > 18
get line x+18+base of card field "topic" of card "index"
if it is not "" then
if x > 1 then
if it is line x+base+17 of card field "topic" of card "index" then
get ""
end if
end if
put it into line x of card field "item2" of card (the number of me)
get line x+base+18 of card field "card id" of card "index"
if it is word 3 of deletedCard then
delete line x+18+base of card field "topic" of card "index"
delete line x+18+base of card field "card id" of card "index"
subtract 1 from x
else
get idToNumber(it)
put it into line x of card field "page2" of card (the number of me)
end if
else
put "" into line x of card field "item2" of card (the number of me)
put "" into line x of card field "page2" of card (the number of me)
end if
add 1 to x
end repeat
put (the number of me) + 1 into nextCard
if nextCard <= the number of cards then
get the name of card nextCard
get word 2 of it
get char 2 to 6 of it
if it is "index" then
send updateIndex to card nextCard
end if
end if
end updateIndex
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=57 right=300 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=60 right=300 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: item
-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=60 right=300 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: page
----- HyperTalk script -----
on mousedown
set lockScreen to true
set lockText of me to false
click at the clickLoc
click at the clickLoc
get the selection
set lockText of me to true
set lockScreen to false
if it is not "" then
push card
global xrefdepth
add 1 to xrefdepth
visual iris open
show background button "return"
go card it
else
select empty
end if
end mouseDown
-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=366 top=26 right=43 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Index Pg.
----- HyperTalk script -----
on mouseUp
put the userLevel into currentLevel
set the userLevel to 5
doMenu "Copy Card"
doMenu "Paste Card"
put "" into field "page no"
send updateIndex to this card
set the userLevel to currentLevel
end mouseUp
-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=274 top=60 right=300 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: item2
-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=274 top=60 right=300 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: page2
----- HyperTalk script -----
on mousedown
set lockScreen to true
set lockText of me to false
click at the clickLoc
click at the clickLoc
get the selection
set lockText of me to true
set lockScreen to false
if it is not "" then
push card
global xrefdepth
add 1 to xrefdepth
visual iris open
show background button "return"
go card it
else
select empty
end if
end mouseDown
-- part contents for background part 7
----- text -----
20
-- part contents for background part 6
----- text -----
Index (cont.)
-- part contents for card part 5
----- text -----
scripts
Shafer, Dan
user level
-- part contents for card part 6
----- text -----
15
4
17
4
15
-- part contents for card part 9
----- text -----
-- part contents for card part 10
----- text -----
-- part contents for background part 17
----- text -----
p6